home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 April / inter@ivo 1997-04.iso / demos / referenc / orsay / dataor / logo.dxr / 00037.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  251 b   |  17 lines
  1. on startMovie
  2.   cursor(200)
  3.   if the machineType <> 256 then
  4.     openXLib("Xblank")
  5.     put xblank()
  6.   end if
  7.   sound stop 1
  8.   set the soundLevel to 5
  9.   startTimer()
  10. end
  11.  
  12. on idle
  13.   if not soundBusy(1) then
  14.     sound playFile 1, "GENERIQ"
  15.   end if
  16. end
  17.